home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / rjkpro_1.lha / rjkpro_1 / shadecluster1oo.amos / shadecluster1oo.amosSourceCode
AMOS Source Code  |  1997-04-02  |  1KB  |  45 lines
  1. '----------------------------------------------------
  2. '                 shade cluster v1.o 
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished 19/1o/1995 12:1o:41
  10. '----------------------------------------------------  
  11.  
  12. _SHADECLUSTER
  13.  
  14. Procedure _SHADECLUSTER
  15.    
  16.    Screen Open 0,320,256,32,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Hide 
  20.    Cls 0
  21.    
  22.    Palette 0,$300,$500,$700,$900,$B00,$D00,$F00,$F10,$F30,$F40,$F60,$F70,$F90,$FA0,$FC0,$FE0,$FF0,$FF2,$FF3,$FF5,$FF6,$FF8,$FF9,$FFB,$FFC,$FFE,$FFF,$CCC,$AAA,$666
  23.    
  24.    Repeat 
  25.       
  26.       I=Rnd(3)
  27.       
  28.       If I=0 and X<159
  29.          Inc X
  30.       Else If I=1 and X>-159
  31.          Dec X
  32.       Else If I=2 and Y<127
  33.          Inc Y
  34.       Else If I=3 and Y>-127
  35.          Dec Y
  36.       End If 
  37.       
  38.       Plot 160+X,128+Y,Point(160+X,128+Y)+1
  39.       
  40.    Until Mouse Key<>0
  41.    
  42.    Fade 1
  43.    Wait 15
  44.    
  45. End Proc